home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / icon sammlungen / mwb archive / backpack.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-07  |  801b  |  22 lines
  1. /*QuickArchive © Frank Röchter*/
  2. NL="0a"x
  3. call addlib("rexxreqtools.library", 0, -30, 0)
  4. wahl = rtezrequest("Wollen Sie die Datei nach RAM: entpacken," || NL ||,
  5.                          "ein Verzeichnis zum entpacken auswählen" || NL ||,
  6.                          "oder wollen Sie sich den .readme" || NL ||,
  7.                          "Text anzeigen lassen?",,
  8.                          "_RAM:|A_uswählen|An_zeigen|_Abbrechen")
  9. call rtfreefilebuffer()
  10. if wahl = 1 then do
  11.    address command ':c/lha e Backpack.lha ram:'
  12. end
  13. if wahl = 2 then do
  14.    dirname = rtfilerequest("sys:","","Pick a directory","Ok","rtfi_flags = freqf_nofiles")
  15.    t = '"'
  16.    call rtfreefilebuffer()
  17.    address command ':c/lha e Backpack.lha 't||dirname||t
  18. end
  19. if wahl = 3 then do
  20.    address command ':c/Text Backpack.readme'
  21. end
  22.